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Préface 


Pour accomplir une tâche, l'ordinateur doit exécuter un 
programme (ensemble d'instructions qui indique à l'ordinateur 
ce que vous voulez qu'il fasse). Vous pouvez acheter des 
programmes sur bande ou sur cassette, ou bien taper ceux 
publiés dans les livres et les revues. Mais rapidement, vous 
souhaiterez écrire vos propres programmes. Une fois que vous 
saurez réaliser cela, vous pourrez faire faire à votre ordinateur 
_ une liste innombrable de choses. 

Ce livre contient trois programmes de jeux basés sur 
a l'astronautique. La version proposée correspond aux 
ordinateurs THOMSON*. Si vous ne possédez pas ces 
machines, reportez-vous au manuel BASIC de votre 
ordinateur car les instructions exactes pour chaque tâche 
particulière varient souvent légèrement d'une machine à une 
autre. Chaque programme est expliqué pas à pas, afin que 
vous puissiez comprendre exactement sa construction et son 
Fr fonctionnement. À la fin du programme complet, vous 

trouverez des suggestions de modifications. À la fin du livre, 

e nous vous indiquons comment assembler les trois programmes 
pour obtenir un seul jeu composé de trois parties ; vous y 
trouverez également le listing complet du programme ainsi 
que le lexique des termes informatiques utilisés dans ce livre. 


Il peut également convenir aux machines AMSTRAD, en modifiant quelques 
tructior ir table de nversion page 31 et indications concernant la 
un des deux appareils page 10). 
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Introduction au BASIC 


La plupart des programmes destinés aux ordinateurs domestiques sont écrits dans un 
langage informatique appelé BASIC. Comme tout autre langage, le BASIC comporte des 
règles à suivre impérativement pour que le programme fonctionne. Par exemple, 
l'instruction BASIC PRINT provoque l'affichage d'informations à l'écran, mais tout le texte 
doit être mis entre quillemets, comme on peut le voir dans la première ligne du 
programme ci-dessous. Tapez les autres lignes et observez ce qui se passe. Vous 
remarquerez que les lignes 2 et 3 produisent des résultats très différents : en ligne 2, 
"15*2" est considéré comme un message tandis qu'en ligne 3, il s'agit d'un calcul 
(absence de quillemets). Les symboles arithmétiques utilisés en BASIC sont répertoriés sur 


le bloc-notes ci-contre. 


FRIHT "EON ANNIVERSAIRE" 
PRINT "15#2" 
PRINT 1542 


L'ordinateur exécute les instructions d'un programme dans 
un ordre logique. Aussi, un programme ne fonctionnerait 
pas si l'ordinateur effectuait chaque instruction dès que 
celle-ci est tapée. En attribuant à chaque instruction un 
numéro de ligne, nous demandons à l'ordinateur de 
l'enregistrer dans sa mémoire jusqu'à l'exécution du 
programme demandée par l'instruction RUN. Les numéros 
de ligne sont généralement attribués de 10 en 10, les trois 
premières lignes du programme portant souvent les 
numéros 10, 20 et 30. L'ordinateur exécute les instructions 
en respectant strictement leur ordre numérique. Des 
instructions supplémentaires peuvent être insérées 
ultérieurement en leur donnant des numéros de lignes 
intermédiaires, tels que 15, 25, etc. Exercez-vous à taper le 
petit programme ci-dessous. 

Notez que la ligne 10 ne produit rien à l'écran. 
L'instruction REM (signifiant Remarque) indique à 
l'ordinateur d'ignorer la fin de la ligne. La ligne 10 ne joue 
qu'un rôle de « note » écrite par le programmeur pour sa 
propre information. 


444 


BOLES ARITAMETIQUES 
Ve MULTIPLICATION 
| / piviSI0 
+ 4DDINoN 
= SousTRACTIO 
| > SUPERIEUR 
RTDIFFERE 


FEN VOEUX D'AMNHIYERSAIRE 

PRINT "BÛH ANNIVERSAIRE" 

FRIHNT "EON AHHIYERSAIRE" 

FRINT "EON ANHIVERSAIRE CHER ORDINATEUR" 
PRIHT "BON ANNIVERSAIRE" | VOUS AVEZ 
FRIHT 1 

PRIHT "VOUS AYEZ" | AN 

PRIHT "1" | 
PRIHT "AH" 


RUH (ENTREE ? 


BOH ANHIYERSAIRE 
| BON ANNIVERSAIRE 
| BON ANNIVERSAIRE CHER ORDINATEUR 
| OH ANNIVERSAIRE 


_ 


Faites connaissance avec votre ordinateur 


Avant de commencer à travailler sur un programme, 
familiarisez-vous avec le clavier de votre ordinateur. 
Ce que vous tapez n'a pas d'importance : vous ne 
pouvez pas endommager votre machine. Le plus 
souvent, elle affichera comme réponse “Syntax error”. 
Apprenez tout particulièrement à jouer avec les 
touches d'édition pour vous permettre de corriger 
toutes les erreurs que vous pourriez faire. Le mode 
d'emploi qui accompagne votre ordinateur vous 
aidera à les utiliser. Ne vous inquiétez pas si vous ne 
comprenez pas certaines fonctions. Vous découvrirez 
leur rôle lorsque vous en aurez besoin. Voici une liste 
des touches ou des fonctions les plus importantes N.B. — Les touches indiquées 
utilisées sur les ordinateurs THOMSON. en bleu doivent être tapées. 


La touche DEL efface le caractère placé sous le curseur. Les touches 
fléchées déplacent le curseur. La touche INS permet d'insérer des 
caractères dans une ligne. 


L'instruction DELETE permet d'effacer un groupe de lignes. Par exemple 
DELETE 10-50 efface toutes les lignes depuis la ligne 10 incluse jusqu'à 
la ligne 50 incluse. Pour effacer une seule ligne, tapez son numéro, 
immédiatement suivi par ENTREE. 


Si vous tapez LIST puis ENTREE, vous verrez défiler le programme à 
l'écran. 


Une action sur cette touche indique à l'ordinateur que vous avez terminé 
une phrase (ou ligne de programme) ; vous lui demandez de la ranger 
dans sa mémoire en vue d'une exécution ultérieure ou de l'exécuter 
immédiatement (dans ce cas, la ligne ne commence pas par un numéro). 


Permet d'arrêter provisoirement le défilement du listing à l'écran (lancé 
par l'instruction LIST). Le fait d'appuyer sur une touche quelconque 
relance le défilement, alors que l'appui simultané des touches CNT et C 
arrête définitivement le listing. 


Cette touche efface l'écran et ne modifie pas le programme. Pour 
provoquer le même effet dans le programme, il faut taper l'instruction 
«CIS 


Cette instruction efface toutes les lignes d'un coup. La mémoire de 
l'ordinateur est donc vidée. ATTENTION : tout ce que vous aviez tapé est 
perdu. Sauvegardez sur cassette ou sur disquette votre programme avant 
d'employer NEW ! 


Préparation d'un programme 


Avant de commencer à écrire un programme en BASIC, 
vous devez déterminer avec exactitude ce que vous voulez 
faire réaliser par l'ordinateur. La première étape consiste à 
écrire les grandes lignes du programme. Voici ce que cela 
donne pour le premier programme de ce livre : « Ce jeu 
consiste à deviner un nombre tiré au hasard. Si la solution 
proposée est juste, l'ordinateur affiche à l'écran une navette 
au décollage. Pas plus de dix essais. Les instructions du jeu 
doivent figurer clairement à l'écran. » 

Vous pouvez également définir l'aspect de l'écran de 
telle façon que les instructions puissent être clairement 
présentées. Pour cela, utilisez une feuille de papier 
quadrillé, car l'écran de l'ordinateur est aussi composé de 
cases repérées par leurs coordonnées verticales et 
horizontales (le nombre de ces cases varie en fonction de 
la machine). Le projet de base correspondant au second 
jeu de ce livre est indiqué sur le bloc-note ci-contre : vous 
devez piloter une navette à travers un champ d'astéroïdes. 
Un projet d'écran initial est également élaboré. Lorsque 
ces préparatifs sont terminés, vous pouvez passer à la 
seconde étape : dresser un organigramme. Celui-ci vous 
permettra de diviser votre programme en étapes logiques. 


ESS 
BELL IS 


LEP 
Gate 


Organigramme 


Un organigramme sert à éclater le problème de départ en 
blocs d'instructions plus petits. L'organigramme ci-dessous 
correspond au premier programme du livre. Les losanges 
désignent les points de prises de décision. Par exemple : 

« La solution proposée est-elle trop grande ? » où « Avez- 

| vous utilisé vos dix essais ? ». Les réponses ne peuvent être 
| que OUI où NON. En fonction de la réponse, l'ordinateur 
empruntera l'une ou l'autre voie. Les rectangles sont 
utilisés pour indiquer les opérations à effectuer, comme par 
exemple l'affichage de l'écran de départ. Les 
organigrammes vous aident à vous poser les bonnes 
questions ; vous pouvez donner ensuite les instructions 
appropriées à l'ordinateur. En préparant avec soin 
l'organigramme, vous serez certain de n'avoir oublié 
aucune étape. Une fois que l'organigramme est mis au 
point, tout ce qu'il reste à faire est de transcrire chaque 
partie en lignes d'instructions BASIC. 
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Sauvegarde des programmes 


Même si vous connaissez très bien un programme, vous 
passerez beaucoup de temps à le taper sur le clavier de 
votre ordinateur, ligne après ligne, à chaque fois que vous 
souhaiterez l'utiliser. En outre, il est possible que vous 
tapiez des erreurs, ce qui vous oblige à le vérifier avec 
soin et à le corriger (ou « débuger » en jargon 
informatique). En conséquence, une fois que votre 
programme fonctionne, il est préférable de l'enregistrer 
pour pouvoir facilement le ré-utiliser plus tard. La 
procédure d'enregistrement est simple. Les instructions 
pour enregistrer (sauvegarder) ou lire (charger) un 
programme sont regroupées sur le bloc-note ci-contre. Il 
est prudent de sauvegarder deux versions de votre 
programme avant d'éteindre votre ordinateur ; cela évite 
les mauvaises surprises si le premier enregistrement à mal 
fonctionné, comme cela arrive parfois. Etiquetez votre 
cassette ou votre disquette en notant le nom du 
programme. Avec des cassettes ou des disquettes 
correctement étiquetées, vous pourrez retrouver facilement 
votre programme lorsque vous voudrez l'utiliser à nouveau. 


(1) Opération inutile sur les ordinateurs THOMSON utilisés avec disquettes. 
(2) Opérations inutiles sur CPC 664 et CPC 6128 car le chargement 
s'effectue par défaut sur disquette et non sur cassette. 


LANCEMENT 
DE LA NAVETTE 


Vous êtes le commandant de la navette spatiale. Pour lancer la navette, 
vous devez introduire dans l'ordinateur central le niveau 
de puissance nécessaire. Vous n'avez que dix essais pour trouver la bonne 
valeur sinon votre mission est terminée. L'ordinateur vous guidera en vous 
indiquant si la valeur tapée est trop grande ou trop petite. Si vous réussissez, 
le tableau de bord de la navette vous indiquera votre altitude jusqu'à 
ce que vous atteigniez l'orbite finale. Bonne chance ! 


LANCEMENT DE LA NAVETTE 
NAVETTE PFKRETE AU DECOLLAGE 
VOUS DEVEZ LA LANCER ! 


VOUS N'AVEZ QUE DIX ESSAIS 


TAPEZ MAINTENGNT VOTRE NOM ET  AFFUYEZ 
QUR. ENTREE ON: 


Ce programme utilise la possibilité qu'a l'ordinateur de générer des nombres aléatoires. 
La plupart des lignes de ce programme constituent des messages destinés au joueur. Ils 
apparaîtront au moment opportun dans le cours du jeu. Les neuf premières lignes du 
programme constituent l'écran de départ. 


5 REM lancement de la navette 
CLS:CLEAR 1000, ,5:SCREEN 6,0,0 
DEFGR$ (6) =24,60,182,195,195,102,68,24 
DEFGRS$S (12=255,255,255,255,255,255,255,235 
DEFGR$(2)=-192,96,48,255,255,48,96,192 
DEFGR$(3)=-192,240,252,255,255,252,240,192 
LOCATE 16,4:FRINT "LANCEMENT DE LA NAVETTE" 
LOCATE 10,5: PRINT "62626666 
LOCATE 8,8:PRINT "NAVETTE PRETE AU DECOLLAGE" 
LOCATE 11,1@:PRINT "VOUS DEVEZ LA LANCER!" 
LOCATE 8,13:PRINT "VOUS N'AVEZ QUE DIX ESSAIS" 
LOCATE 8,16:PRINT "TAPEZ MAINTENANT VOTRE NOM" 
LOCATE 9,18:PFRINT "ET APPUYEZ SUR ‘ENTREE :" 


La ligne 5 rappelle le titre du programme en utilisant l'instruction REM. Vous retrouverez ainsi 
facilement dans quelques mois à quoi servait ce programme, simplement en relisant cette 
ligne. L'écran est effacé par l'instruction CLS placée en ligne 10. CLEAR réserve de la place 
en mémoire pour les chaînes de caractères (1 OO0 octets) et 
pour les caractères graphiques redéfinis (5 caractères) dont nous 
aurons besoin plus loin dans le programme. Les instructions 
DEFGRS( ) déterminent la forme de chacun de ces caractères. 
Pour afficher les messages, nous aurions pu utiliser directement 
l'instruction PRINT mais l'écran n'aurait pas été bien attrayant. 
En conséquence, nous commençons par utiliser l'instruction LÉ PREMIER NOMBRE 
LOCATE qui permet de disposer agréablement le texte à ESPOND 40 
l'écran. Les nombres qui suivent cette instruction représentent CoRÀ | VVE 

: ; S : | vMÉRO DE COLO 
les coordonnées horizontales et verticales du début de la ligne AVME PTT 
de texte. Nous pouvons utiliser jusqu'à 40 caractères par ligne et |£7 LE SECOND . : 
25 caractères par colonne. Ainsi la ligne 20 produira l'affichage |WWMERO DE LIGNE _ | 
du titre sur la quatrième ligne, à partir de la dixième colonne. Re 
Les autres messages sont positionnés de la même manière. 


98 LOCATE 15,20: INPUT " ",N# 

108 CLS 

118 PRINT "BIENVENUE À BORD CAPITAINE ";N$ 

120 LOCATE 1,4: PRINT "FOUR LANCER LA NAVETTE, VOUS DEVEZ" 

150 LOCATE 1,6:PRINT "DEVINEZ LE NIVEAU DE PUISSANCE REQUIS". 
14@ LOCATE 1,8:PRINT "(N'IMPORTE QUEL NOMBRE ENTRE 1 ET 1@0)" 
150 LOCATE 4,12:PRINT "TAPEZ-LE ET APPUYEZ SUR ‘ENTREE :" 
16Q@ LOCATE 4,14:PRINT "ALLEZ-Y !" 


En ligne 90, le programme attend que le joueur tape son nom. L'instruction INPUT 
point d'interrogation pour indiquer à l'utilisateur que fait normalement apparaître un 
l'ordinateur attend une réponse au clavier. Toutefois, dans 

notre programme, nous avons placé des guillemets et une 

virgule entre INPUT et N$. Cela fait disparaître le point 

d'interrogation, et le texte placé entre les quillemets (ici, un 

espace seulement) est affiché à la place. 

Après l'instruction INPUT, l'écran est effacé et la série 

d'instructions comprise entre les lignes 110 et 160 

compose le premier écran de jeu. Tout ce que vous 

taperez ensuite sera placé dans la variable chaîne de 

caractères appelée N$. Le signe $ signale à l'ordinateur 

qu'il peut accepter des lettres et/ou des chiffres. 

Sans ce signe, l'ordinateur n'accepterait que des chiffres. 

Lorsqu'on lui demandera d'afficher N$ à la ligne 110 

(PRINT N$), l'ordinateur affichera ce qui aura été tapé au clavier. 

Notez qu'à la ligne 110, N$ n'est pas entre quillemets et est précédé d'ün point virgule. 


DE RSS 


NIVEAU=INT ( (RND(1))#10@0) +1 

FOR G=1 TO 10 

LOCATE 4,16:PRINT "ESSAI":G 

LOCATE 4,18:INFUT ESSAI 

IF ESSAI=NIVEAU THEN GOTO 280 

IF ESSAI“NIVEAU THEN LOCATE 8,28:PRINT "TROF BAS. 
ESSAYEZ ENCORE. " 

IF ESSAI>NIVEAU THEN LOCATE 8,2@:FRINT “TROF HAUT. 
ESSAYEZ ENCORE. " 

NEXT G 

CLS 

LOCATE 1,4:PRINT "VOUS N'AVEZ FAS TROUVE AFRES 10 
ESSAIS. " 

LOCATE 1,6: PRINT "TAPEZ ‘RUN’ (ENTREE) FOUR RECOM 
MENCER. " 

STOF 


La ligne 170 produit un nombre aléatoire compris entre 1 et 100 
grâce à la commande RND(1). Le nombre que vous devrez 
deviner est enregistré par l'ordinateur dans la variable NIVEAU. 
La ligne 180 comptabilise les essais du joueur en limitant leur 
nombre à 10. En ligne 200, le programme compare votre réponse 
au résultat attendu. Si l'égalité est vérifiée, il passe à la ligne 280. 
Si le nombre exact n'a pas été trouvé, les lignes 210 et 220 
donnent une indication au joueur. Après dix essais, le programme 
passe à la ligne 240, les messages correspondants sont affichés et 
le jeu s'arrête. 


CLS 

HAUT=G 

CIBLE=10000 

LOCATE 10,2:PFRINT "DECOLLAGE..." 
LOCATE 16,1G@:FRINT "ALTITUDE : “;HAUT 
FOR D=1 TO 180 

NEXT D 

HAUT=HAUT#2+1 

FLAY "DO" 

IF HAUT<CIBLE THEN GOTO 320 


900 
sers 


@ 
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L'écran se transforme en tableau de bord. La navette 
décolle et pendant toute la phase ascensionnelle, l'altitude 
est affichée jusqu'à ce que la navette atteigne son orbite. 
La ligne 290 initialise l'altitude à zéro, et la ligne 300 situe 
l'orbite à une altitude de 10 000. Les trois lignes suivantes 
affichent les mots DECOLLAGE et ALTITUDE ainsi que le 
nombre donnant l'altitude. Les instructions LOCATE 
positionnent correctement les différents messages à l'écran. 
La ligne 360 calcule l'altitude en doublant l'ancienne 
valeur et en ajoutant 1. L'ordinateur est si rapide que les 
nombres défileraient trop vite à l'écran et ne pourraient 
être lus. Aussi est-il nécessaire de ralentir l'ordinateur en 
ajoutant une boucle de temporisation aux lignes 340 et 
350. Ces instructions demandent à l'ordinateur de compter 
jusqu'à 1 000 avant d'exécuter autre chose. Pour obtenir 
un affichage plus rapide, placez un nombre inférieur à 

1 000 après l'instruction TO de la ligne 340. La ligne 370 
ordonne à l'ordinateur de retourner à la ligne 320 tant que 
l'orbite n'est pas atteinte. 


380 CLS 

390 FOR R=S TO 10 

4008 LOCATE 16,R:PRINT "NAVETTE EN ORBITE!" 

41@ NEXT R 

428 LOCATE 5,1:PRINT "FELICITATIONS CAPITAINE ";N# 


La dernière partie du programme affiche le message de 
félicitations. La boucle FOR... NEXT commençant à la 
ligne 390 constitue un procédé simple pour afficher cinq 
fois « NAVETTE EN ORBITE ». La variable R sert de 
compteur de boucles et varie de 5 à 10. L'instruction 
LOCATE utilise cette variable pour décaler l'affichage à 
chaque fois. Sans cette boucle, nous aurions dû taper cinq 
fois la ligne 400, ce qui aurait pris plus de place dans la 
mémoire de l'ordinateur. 


Améliorez votre programme 


L'une des meilleures façons d'apprendre à programmer 
consiste à modifier le programme original après l'avoir 
tapé. Par exemple, vous pouvez lui ajouter des effets 
sonores. Sur l'ordinateur THOMSON, l'instruction PLAY à 
été conçue pour cela. Si vous ajoutez des lignes de 
programme entre les lignes 320 et 340, vous obtiendrez un 
effet sonore pendant toute la phase du décollage. Reportez- 
vous au mode d'emploi de votre ordinateur pour 
comprendre en détail le fonctionnement des différents 
paramètres de l'instruction PLAY. 


ASTÉROÏDES 


La navette a atteint son orbite avec succès. Soudain, vous pénétrez 
dans un champ d'astéroïdes. Vous devez donner à l'ordinateur 
de la navette des consignes précises de navigation afin de pouvoir échapper 
à une collision qui serait fatale. Il est impossible de reculer. 


000000 


+ 


DIRECTION (CH, E, D) 


D at at, ds 


Ce programme utilise toujours le texte de l'ordinateur mais exploite 
les caractères semi-graphiques redéfinis. C'est le rôle des instructions 
11 à 15. Le programme affiche les astéroïdes et la navette à l'écran, 
puis déplace la navette dans la direction voulue par le joueur. 
Comme précédemment, le programme commence avec une 
instruction REM et efface l'écran. 


1008 REM #####% ASTERDIDES ###3#4#% à 
181@ CLS 


La première partie du programme affiche les astéroïdes à 
des positions aléatoires sur l'écran, si bien que ces positions 
sont différentes à chaque partie. 


Avant de placer les astéroïdes, vous devez définir l'aspect 
de l'écran. En mode texte, vous disposez de 40 colonnes et 
de 25 lignes. Logiquement, la navette commence son 
voyage par le côté gauche de l'écran (colonne 0 ou 1 
selon l'ordinateur). Le champ d'astéroïdes occupe les 
colonnes 3 à 30 et la navette atteindra son objectif 
lorsqu'elle arrivera en colonne 30 sans avoir heurté 
d'astéroïdes. Les deux lignes supérieures de l'écran sont 
réservées aux instructions et aux messages devant être 
donnés par le joueur pendant le déroulement de la partie. 
En outre, la navette ne doit pas être autorisée à sortir dans 
le bas de l'écran pour éviter les astéroïdes. Tout cela 
détermine l'organisation de l'écran ci-dessous. Si vous 
désirez obtenir un plan différent, vous aurez à modifier 
quelques nombres dans les instructions LOCATE 


CHAMP D'ASTÉROÏDES 


17 


DIM A(50) ,D(58@) 

FOR S=1 TO 50 

A(S)=INT (RND(1) #28) +3 
D(S)=INT(RND(1)#18) +3 
XXX=INT (RND(1) #4) 

LOCATE A(S),D(S):PRINT GR$(@) 
NEXT S 


À la ligne 1020, l'instruction DIM réserve de la place pour 
deux tableaux qui mémoriseront les positions horizontales 
et verticales des astéroïdes. Le nombre placé entre 
parenthèses indique le nombre d'astéroïdes : 50 donne un 
affichage satisfaisant. Les lignes 1040 et 1050 génèrent des 
positions aléatoires pour les astéroïdes dans les limites de 
l'écran. À la ligne 1060, l'astéroïde est dessiné en utilisant 
des caractères semi-graphiques. 


La boucle FOR... NEXT des lignes 1030 à 1070 affiche ce 
caractère 50 fois à l'écran, ce qui construit le champ 
d'astéroïdes. 


EE 


Après avoir dessiné les astéroïdes, le programme doit 
donner une position aléatoire de départ à la navette. 
L'instruction RND est utilisée à nouveau et le nombre 
généré est entier et compris entre 2 et 20 (ligne 1060). La 
navette elle-même est représentée par un X. La partie 
suivante du programme permet au joueur de commander 
les mouvements de la navette sur l'écran. 


| 1100 COL=G:LIGNE=2+INT (RND(1) #18) 
1118 LOCATE COL,LIGNE:; PRINT "X" 


Trois directions (haut, bas, droite) suffisent pour 
commander la navette, celles-ci se déplaçant de la gauche 
vers la droite. Vous indiquez la direction en tapant au 
clavier H, B ou D (respectivement haut, bas, droite). Votre 
commande est mémorisée dans la variable chaîne de 
caractère D$ (instruction INPUT). Si une mauvaise touche 
est enfoncée, la ligne 1200 renvoie le programme à la 
ligne 1160 jusqu'à ce qu'une touche valide soit utilisée. A 
ce moment, le programme saute à la ligne 1210. 


1200 GOTO 1160 


O 116@ LOCATE 1,1:INPUT "DIRECTION (H, B, D) ",D# 
1170 1F D#$="H" THEN HAUT=-1:DROITE=@:GOTO 1210 
1180 IF D$="B" THEN HAUT=1:DROITE=@:GOTO 1210 
1190 IF D$="D" THEN HAUT=G:DROITE=1:GOTO 1210 


NCE ", 


Les lignes 1170 à 1190 attribuent les valeurs correctes aux 
variables haut (= 1 pour descendre, = — 1 pour montrer, 
= 0 s'il n'y a pas de déplacement vertical) et droite (= 0 
s'il n'y a pas de déplacement, = 1 si déplacement). Le 
déplacement de la navette s'effectue après que la distance 
a été tapée (ligne 1210). Notez qu'il n'est pas nécessaire ici 
d'utiliser une variable chaîne de caractères car une 
distance ne peut être exprimée qu'avec des chiffres. Pour 
finir cette partie, le dessin de la navette (un X) est remplacé 
par un 0 si bien que la trajectoire de la navette à travers le 
champ d'astéroïdes et la position de la navette elle-même 
ne peuvent être confondües. 


TRAJECTOIRE DE LA NAVETTE 


| 121 LOCATE 1,1:PRINT SPC(30):LOCATE 1,1:INPUT "DISTA 
O DISTANCE 
1220 LOCATE COL,LIGNE:PRINT "O" 
O —— SRE us 


LL. 


TRAJECTOIRE DE LA N'AVETTE 


PosiTion 
DE LA WNAVETIE 


19 


Les lignes 1230 à 1330 constituent réellement le cœur du 
programme. Elles déplacent la navette et vérifient 
qu'aucune collision n'a lieu. Pour cela, nous avons 
construit une grande boucle FOR... NEXT utilisant la 
variable € comme compteur de boucles. La distance 
introduite à la ligne 210 détermine le nombre de passages 
dans la boucle. La nouvelle position de la navette est 
calculée aux lignes 1240 et 1250, en utilisant les valeurs 
des variables haut et droite initialisées dans la partie 
précédente. La navette se déplace d'une case à la fois et la 
lettre « O » est affichée à la précédente position pour 
représenter le chemin parcouru. 


FOR C=1i TO DISTANCE 
LIGNE=LIGNE+HAUT 

COL=COL+DROITE 

FOR S=1 TO 50 

1F COL=A(S) AND LIGNE=D(S) THEN GOTO 1370 
NEXT S 

IF LIGNE>20 OR LIGNE<2 THEN 1390 
LOCATE COL,LIGNE:PRINT"O" 

IF COL>30 THEN 1410 

NEXT C 

GOTO 1110 


0000C 


Er re ” ne nee 


(@) 


La 


Les lignes 1260 à 1290 utilisent une autre boucle FOR... 
NEXT pour vérifier si la navette a rencontré un astéroïde. 
La ligne 1270 compare les coordonnées de la navette avec 
celles des astéroïdes stockés dans les tableaux A(S) et D(S). 
La ligne 1270 vérifie s'il y a eu collision avec le caractère 
graphique affiché à la ligne 1060. 


La boucle passe ainsi en revue les astéroïdes. La 

ligne 1300 vérifie si la navette est restée en orbite, c'est-à- 
dire sur l'écran. Si toutes les conditions sont vérifiées, la 
navette est affichée dans sa nouvelle position. Le dernier 
test consiste à vérifier si la navette à atteint la colonne 30. 
Si oui, le jeu se termine (partie suivante). Si non, la 

ligne 1340 renvoie le micro-processeur à la ligne 1110. 


€ 
/ 


ASTÉRoÏDE ÉVIT É ASTÉROÏDE 
= ed ASTÉROÏDE ÉVITÉ Éviré 
p.74 Es Æ 


Il ne reste plus qu'à ajouter à notre programme les 
messages de fin. Nous les avons répartis sur deux lignes 
pour donner une apparence plus attrayante. L'instruction 
END termine ce programme. 


O 1570 CLS:LOCATE 1,1@:FRINT "VOUS AVEZ HEURTE UN AS 
TEROIDE. 
1380 LOCATE 1,13:PFRINT "VOTRE VAISSEAU EST DEFINIT 
IVEMENT ENDOMMAGE.. ": STOF 
1590 CLS:LOCATE 1,1@:PRINT "VOUS AVEZ QUITTE VOTRE 
ORBITE." 
14@Q LOCATE 1,13:FRINT "VOUS ETES FERDU DANS L'ESF 
ACE. ":STOP 
141@ CLS:LOCATE 1,1@: PRINT "BRAVO! VOUS LES AVEZ T 
OUS EVITES!" 
1420 LOCATE 1,13:FRINT "VOUS DEVENEZ FILOTE PROFES 
SIONNEL. " 


“ 
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0 
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. DIRECTION (H, B, D) 


Lorsque vous jouez, n'oubliez pas de quelle manière les 
astéroïdes sont affichés à l'écran. La navette est composée 
d'un seul caractère graphique. Si ce caractère touche celui 
représentant un astéroïde, il y a collision. 


Vous pouvez rendre le jeu plus difficile en augmentant le 
nombre d'astéroïdes. Toutefois, au-delà de 120, il est 
pratiquement impossible de trouver un chemin. Modifiez 
simplement les lignes 1020, 1030 et 1260. 


Donnez-lui des couleurs 


Pour l'ordinateur THOMSON, les instructions SCREEN et 
COLOR déterminent les couleurs de l'écran et des 
caractères. En combinant les instructions COLOR et RND 
lors de l'affichage des astéroïdes, vous pouvez obtenir un 
champ d'astéroïdes multicolores. 


1068 CL=RND(1)#S5:LOCATE A(S) ,D(S):COLOR CL:PFRINT G 


R$ (@) 


ALTITUDE INCLINAISON VITESSE DISTANCE 
1200 5 400 


Comme dans le programme précédent, la première étape 
consiste à préparer l'écran sur une feuille de papier. Une 
fois encore, la navette va traverser l'écran de la gauche 
vers la droite, et de haut en bas. L'aire d'atterrissage est 
représentée par un rectangle placé dans le coin inférieur 
droit. Le haut de l'écran est réservé au tableau de bord et 
il indique l'altitude, la pente, la vitesse de la navette ainsi 
que la distance la séparant du terrain. Ces considérations 
déterminent un écran se présentant ainsi : 


O 2000 REM ###### ATTERRISSAGE #####% 
2810 CLS 
O 20708 D=18000:S5=-400:H=2000:F=2 
28030 C$=" = 
2040 LOCATE 1,1:COLOR 1:PRINT "ALTITUDE “3; :COLOR 
O 2:PRINT "INCLINAISON ‘";:COLOR 3S:PRINT "VITESSE "33: 
COLOR 4:PRINT "DISTANCE " 
2050 LOCATE 27,21: PRINT GR#(1);GR#(1) ; GR#(1) 


La ligne 2020 détermine les valeurs initiales pour la 
distance, la vitesse, l'altitude et la pente. La ligne 2030 
crée une chaîne de caractère C$ composée de 5 espaces 
et dont le rôle consistera à effacer les anciennes valeurs du 
tableau de bord. Le tableau de bord est affiché par la 
ligne 2040. Les instructions COLOR agrémentent 
l'affichage. N'oubliez pas de taper autant d'espaces 
qu'indiqué à la ligne 2040 afin d'obtenir une bonne 
disposition sur l'écran. L'aire d'atterrissage est dessinée par 
la ligne 2050. On utilise un caractère graphique 
représentant un carré plein. 


2068 X=1:Y=3 
2070 LOCATE X,Y:FRINT GR#(2); GR$(3) 


La position de la navette à l'écran est déterminée par les 
coordonnées X et Y initialisées à la ligne 2060. X 
correspond à la position horizontale ; Ÿ, à la position 
verticale. La navette est également composée de caractères 
graphiques. 


LOCATE 2,2:PRINT C# 

LOCATE 2,2:COLOR 1:PRINT H 

LOCATE 15,2:PRINT C$ 

LOCATE 15,2:COLOR 2:PRINT F 
LOCATE 24,2:PRINT 

LOCATE 24,2:COLOR 

LOCATE 32,2:PRINT 

LOCATE 32,2:COL0R 4:PRINT D 


Les lignes 2080 à 2150 affichent les valeurs numériques de 
l'altitude, de la pente, de la vitesse et de la distance. Là 
aussi, l'instruction COLOR est utilisée pour améliorer la 
présentation. La variablé chaîne de caractère C$ utilisée 
aux lignes 2080, 2100, 2120 et 2140 efface les anciennes 
valeurs affichées avant qu'elles ne soient mises à jour. Cela 
donne l'impression d'un affichage « Temps Réel » tandis 
que la navette se déplace vers la droite et vers le bas pour 
atteindre l'aire d'atterrissage. La superposition de 
caractères est une méthode souvent utilisée dans les 
programmes informatiques pour produire des graphiques 
animés. 


O 216@ IF S<20@ THEN LOCATE 5,1@:PRINT "NAVETTE IMMO 
BILE":STOP 
217@ IF D<-999 THEN LOCATE @,1@:FRINT "LA NAVETTE 
A DEPFASSE L'AIRE D'ATTERRIS- SAGE. ":STOP 
2180 IF H£=QG THEN GOTO 2290 


Les lignes 2160 à 2180 vérifient que la vitesse n'est pas 
trop faible et que la navette n'a pas dépassé l'aire 
d'atterrissage d'une distance supérieure à 999. 

La ligne 2180 vérifie si la navette a atteint l'aire 
d'atterrissage avec une altitude nulle. Si oui, le programme 
passe à la ligne 2290 où un ultime test vérifie si la navette 
s'est bien posée sur l'aire d'atterrissage. 


R$="":R#=INKEYS 
2200 IF R$="N" THEN F=F+1:S=S+5 
2210 IF R$="W" THEN F=F-1:S=S-5 
22206 IF F=0 THEN F=1:S=5-20 

O 22350 H=H-F:S=S+(F-5) #3: D=D-INT(S/10) 
2235 IF H<@ THEN H=0 

O 224 LOCATE X,Y:PRINT C# 


2258 X=27-INT(D/(18008/28)) 
2268 Y=20-INT (H/(2800/18) ) 
227@ LOCATE X,Y:COLOR 1:PRINT GR$(2) ; GR$ (3) 
GOTO 2080 


O O O O 


Les lignes 2190 à 2280 permettent au joueur de contrôler 
la descente de la navette et de modifier sa trajectoire en 
fonction des valeurs tapées. À la ligne 2190, l'instruction 
INKEY$ scrute le clavier et détecte l'enfoncement d'une 
touche. Le caractère correspondant à la touche est placé 
dans R$. Les lignes 2200 et 2210 vérifient s'il s'agit d'un N 
ou d'un W (respectivement pour accélérer et décélérer). Si 
c'est le cas, les valeurs de pente et de vitesse sont 
modifiées. Notez que l'instruction INKEY$ n'arrête pas le 
programme tant que rien n'est tapé au clavier. À la 

ligne 2220, le programme vérifie que la pente n'atteint pas 
0 : si c'était le cas, la navette s'immobiliserait dans l'espace. 
La ligne 2230 calcule les nouvelles valeurs de l'altitude, de 
la vitesse et de la distance ; la ligne 2240 efface les 
anciennes valeurs en utilisant C$. Les nouvelles 
coordonnées X et Ÿ de la navette sont calculées en 2250 et 
2260. La ligne 2270 place la navette à sa nouvelle position 
et la ligne 2280 fait reprendre le programme à son début. 


2290 IF D>1@0@ THEN LOCATE 5,1@:PRINT "LA NAVETTE 
O S'EST POSEE AVANT L'AIRE D'ATTERRISSAGE. “:STOP O 
23006 IF S>530@ THEN LOCATE 5,1@:PRINT "VITESSE TROP 
O GRANDE. ": STOP 
2310 IF F>5 THEN LOCATE 5,1@:PRINT "ANGLE D'ATTAQU O 
E INACCEFTABLE. ":STOP 
O 2320 LOCATE 1,18: PRINT “"ATTERRISSAGE PARFAIT." O 
2350 STOP 


Puis le programme se termine sur les messages de fin. Le 
programme vérifie si vous ne vous posez pas trop loin de 
la base (D > 1 000), si la vitesse n'est pas trop grande 
(S > 300), et si la pente n'est pas trop importante 
(F > 5). 


Améliorez vos programmes 


L'amélioration finale consiste à enchaîner les trois 
programmes. Vous trouverez le listing complet ainsi que les 


modifications effectuées ci-dessous. 


Chaïinage des programmes 


Un sous-programme est ajouté à la fin des trois 


programmes renumérotés ; il commence à la ligne 3000 et 
assure le chaînage d'une partie à une autre. Le message 

« ALERTE » apparaît à l'écran lorsqu'on passe d'une partie 
à une autre. Les lignes 440 et 1440 appellent ce sous- 
programme et les lignes 430 et 1430 déterminent le mot 


approprié devant être affiché. 


THOMSON : listing complet 


S REM lancement de la navette 
CLS:CLEAR 1000,,5:SCREEN 6,0,0 
DEFGR$ (0) =24,60,102,195,195,102,60,24 
DEFGR# (1)=255,255,255,255,255,255,255,255 
DEFGR# (2)=192,96,48,255,255,48,96,192 
DEFGR#(3)=192,240,252,255,255,252,240,192 
LOCATE 1@,4:FRINT "LANCEMENT DE LA NAVETTE" 
LOCATE 19,52 PRINT 4646626 0626 D EME DE DEN DE DE DEEE DE 
LOCATE 8,8:FRINT "NAVETTE PRETE AU DECOLLAGE" 
LOCATE 11,1G:PRINT "VOUS DEVEZ LA LANCER!" 
LOCATE 8,13:PRINT “VOUS N'AVEZ QUE DIX ESSAIS" 
LOCATE 8,16:PRINT “TAPEZ MAINTENANT VOTRE NOM" 
LOCATE 9,18:PRINT "ET APPUYEZ SUR ‘ENTREE’ :" 
LOCATE 15,20: INPUT * ",N$ 

10@ CLS 

11@ PRINT "BIENVENUE À BORD CAPITAINE ";N$ 

128 LOCATE 1,4:PRINT "FOUR LANCER LA NAVETTE, VOUS 

DEVEZ" 

15@ LOCATE 1,6:PRINT "DEVINEZ LE NIVEAU DE PUISSAN 

CE REQUIS" 

148 LOCATE 1,8:PRINT “(N'IMPORTE QUEL NOMBRE ENTRE 

1 ET 100)" 

150 LOCATE 4,12:PRINT "TAPEZ-LE ET APPUYEZ SUR ‘EN 

TRÉE” 1° 

16@ LOCATE 4,14:PRINT “ALLEZ-Y !* 

17@ NIVEAU=INT ( (RND (1) )#190@) +1 

180 FOR G=1 TO 1@ 

185 LOCATE 4,16:PRINT “ESSAI";G 

19Q LOCATE 4,18:INPUT ESSAI 

200 IF ESSAI=NIVEAU THEN GOTO 28@ 

210 IF ESSAI<NIVEAU THEN LOCATE 8,20:PRINT "TROF B 

AS. ESSAYEZ ENCORE. " 

2206 IF ESSAI>NIVEAU THEN LOCATE 8,2@:PRINT "TROP H 

AUT. ESSAYEZ ENCORE. " 

236 NEXT G 

248 CLS 

258 LOCATE 1,4:PRINT “VOUS N'AVEZ PAS TROUVE APRES 

18 ESSAIS." 

268 LOCATE 1,6:FRINT "TAPEZ ‘RUN’ (ENTREE) POUR RE 

COMMENCER. " 

278 STOP 

288 CLS 

298 HAUT=Q 

300 CIBLE=1000@ 

31@ LOCATE 1@,2:PRINT "DECOLLAGE.. 

320 LOCATE 18,1@:PRINT "ALTITUDE : 

340 FOR D=1 TO 100 

3S@ NEXT D 

36@ HAUT=HAUT#2+1 

365 PFLAY"DO" 

37@ IF HAUT<CIBLE THEN GOTO 32@ 

38@ CLS 

398 FOR R=S TO 10 


4@@ LOCATE 1@,R:PRINT "NAVETTE EN ORBITE!" 

418 NEXT R 

42@ LOCATE S,1:PRINT "FELICITATIONS CAPITAINE "3: N# 
4530 F#="ASTEROIDES" 

440 GOSUB 3000 

1000 REM ###### ASTEROIDES #####% 

181@ CLS 

1028 DIM A(5G) ,D(5@) 

1050 FOR S=1 TO 5@ 

1048 A(S)=INT (RND(1)#28)+3 

1058 D(S)=INT (RND(1)#18)+3 

1055 XXX=INT (RND(1)#4) 

1968 LOCATE A(S),D(S):PRINT GR#(@) 

1@7@ NEXT S 

1108 COL=@:LIGNE=2+INT (RND(1)#18) 

111@ LOCATE COL,LIGNE:PRINT “X" 

1168 LOCATE 1,1:INFUT "DIRECTION (H, B, D) “,D$ 
117@ IF D#="H" THEN HAUT=-1:DROITE=@:GOTO 1210 
1180 IF D# DROITE=@:GOTO 121@ 

1190 IF D$= : DROITE=1:GOTO 121@ 

1208 GOTO 1169 

121@ LOCATE 1,1:PRINT SPC(3@):LOCATE 1,1:INPUT "DI 
STANCE “,DISTANCE 

122@ LOCATE COL,LIGNE:PRINT "O0" 

1250 FOR C=1 TO DISTANCE 

124@ LIGNE=LIGNE+HAUT 

1258 COL=COL+DROITE 

1268 FOR S=1 TO S@ 

1276 IF COL=A(S) AND LIGNE=D(S) THEN GOTO 137@ 
1298 NEXT S 

1300 IF LIGNE>2@ OR LIGNE<2 THEN 139@ 

1319 LOCATE COL ,LIGNE:PRINT"O" 

1320 IF COL>3@ THEN 141@ 

1330 NEXT C 

1340 GOTO 1110 

137@ CLS:LOCATE 1,1@:PRINT “VOUS AVEZ HEURTE UN AS 
TEROIDE." 

1380 LACATE 1,13:PRINT "VOTRE VAISSEAU EST DEFINIT 
IVEMENT ENDOMMAGE . “: STOF 

1390 CLS:LOCATE 1,1@:PFRINT “VOUS AVEZ QUITTE VOTRE 
ORBITE." 

140@ LOCATE 1,13:FRINT "VOUS ETES PERDU DANS L'ESF 
ACE.":STOFP 

141@ CLS:LOCATE 1,1@:PRINT “BRAVO! VOUS LES AVEZ T 
QOUS EVITES!" 

142@ LOCATE 1,13:PRINT “VOUS DEVENEZ FILOTE PROFES 
SIONNEL." 

1450 F$="ATTERRISSAGE " 

1448 GOSUB 3000 

2008 REM #####% ATTERRISSAGE ####3# 

2@1@ CLS 

20726 D-18008:S=-400:H-2000:F-2 

20:@ C$=" LE 


2648 LOCATE 1,1:COLOR 1:PRINT “ALTITUDE “;:COLOR 2258 X-=-27-INT (D/(18808/28)) 

Z:PRINT “INCLINAISON ";:COLOR S:PRINT "VITESSE “3: 2268 Y=28-INT (H/(2888/18)) 

COLOR 4:FRINT “DISTANCE * 2276 LOCATE X,Y:COLOR 1:PRINT GR$ (2); GR$ (3) 

2@5@ LOCATE 27,21:PRINT GR$(1) ;GR#(1) ; GR$ (1) 2288 GOTO 2080 

28068 X=1:Y=35 2290 IF D>188@ THEN LOCATE S,1G:PRINT "LA NAVETTE 
2878 LOCATE X,Y:FRINT GR$ (2); GR$ (3) S'EST POSEE AVANT L'AIRE D'ATTERRISSAGE. *:STOP 
2688 LOCATE 2,2:PRINT C#$ 2308 IF S>5:@@ THEN LOCATE S,1@:FRINT "VITESSE TROF 
2098 LOCATE :COLOR 1:PRINT H GRANDE . “: STOP 

2188 LOCATE 2316 IF F>S THEN LOCATE 5,1@:PRINT “ANGLE D'ATTAQU 
2118 LOCATE E INACCEFTABLE.":STOF 

212@ LOCATE 24,2:PRINT à 2328 LOCATE 1,1@:FRINT "ATTERRISSAGE PARFAIT." 
2130 LOCATE 24,2:COL0R 3:PRINT S 23:08 STOF 

214@ LOCATE 32,2:PRINT C$ 3000 REM #####% CHAINAGE #42 

2150 LOCATE 32,2:COLOR 4:PRINT D 3018 FOR D=1 TO 1808 

216@ IF S<20@ THEN LOCATE 5,1@:PRINT “NAVETTE IMMO À 3028 NEXT D 

BILE":STOP ë 3058 CLS 

217@ IF D<-999 THEN LOCATE @,1@:FRINT "LA NAVETTE 2068 FOR L=1 TO 1@ 

A DEFASSE L'AIRE D'ATTERRIS- SAGE. ":STOF 3065 FLAY “DO" 

2180 IF H<=@ THEN GOTO 2298 307@ LOCATE 2,1:COLOR INT(RND(1)#3+1):PRINT “ALERT 
2190 R$="":R#=INKEYS E ! MANOEUVRES À EFFECTUER !" 

2200 IF R$="N" THEN F=F+1:S=5+5 3088 NEXT L 

2210 IF R$="W" THEN F=F-1:S=S-5 3090 FOR D=1 10 18 

2226 IF F=@ THEN F=1:S5=-5-20 2095 FLAY “DO“ 

2230 H=H-F:S=6+(F-5)#3:D=D-INT(S/10@) 3108 NEXT D 

2225 IF HA THEN H=@ 2118 RETURN 

224@ LOCATE X,Y:PRINT C$ # 


CHAINE 


FOR... NEXT 


IF... THEN 


INKEYS 


INPUT 


Glossaire 


Une chaîne de caractères est une suite de lettres, de 
symboles, de chiffres, placés entre quillemets. Une variable 
chaîne de caractères identifie une chaîne de caractères : 
son nom doit obligatoirement se terminer par le symbole f. 
L'ordinateur ne cherche jamais à interprêter ce qui est 
placé dans une chaîne de caractères. 


L'instruction CHR$ permet d'envoyer à l'écran le caractère 
correspondant au numéro placé entre parenthèses : le 
code. Ces caractères correspondent aux symboles gravés 
sur les touches du clavier ainsi qu'à des caractères 
spéciaux propres à chaque ordinateur. 


Cette instruction BASIC détermine la taille d'un tableau. 
Elle est suivie par un nombre placé entre parenthèses 
indiquant à l'ordinateur le nombre d'éléments dans ce 
tableau. 


Cette séquence demande à l'ordinateur de répéter une 
opération un certain nombre de fois. Par exemple, la ligne 
FOR X = 1 TO 5:PRINT 2+X:NEXT X demandera à 
l'ordinateur d'écrire la table de multiplication par 2 pour 
les 5 premiers chiffres. 


Cette instruction commande à l'ordinateur de sauter 
directement au numéro de la ligne spécifiée. Elle est 
souvent utilisée en conjonction avec l'instruction IF... 
THEN. Affention : si vous utilisez cette instruction trop 
souvent, vous rencontrerez de nombreuses difficultés pour 
suivre le déroulement logique du programme. 


_Les instructions placées après THEN sont exécutées 


seulement si la condition placée après IF est réalisée. 


Cette instruction demande à l'ordinateur de lire le clavier 
afin de déterminer si une touche a été enfoncée. 


Lorsque l'ordinateur rencontre l'instruction INPUT il affiche 
un point d'interrogation à l'écran. L'utilisateur tape sa 


réponse et appuie sur ENTREE (ou RETURN). 


Cette fonction demande à l'ordinateur de ne considérer 
que la partie entière de nombre décimal n. Par exemple, 


INT(3.1415) donne 5. 


ON N GOTO... 


Tableau 


Cette instruction permet d'extraire d'une chaîne de 
caractères ses premiers caractères. RIGHT$ effectue une 
opération symétrique mais en commençant par la fin de la 
chaîne. MID$ est utilisée pour extraire un caractère où un 
groupe de caractères n'importe où dans la chaîne. Toutes 
ces instructions sont suivies par des nombres indiquant le 
nombre de caractères devant être extraits. MIDS utilise un 
paramètre complémentaire pour indiquer le rang dans la 
chaîne de départ à partir duquel les caractères sont 
extraits. 


Cette commande fait défiler à l'écran l'ensemble du 
programme dans l'ordre croissant des numéros de ligne. 
Vous pouvez lister une ligne, une partie du programme où 
le programme complet. 


Cette instruction est suivie par une série de numéros de 
lignes repérées par des virgules. Si N vaut 1, le 
programme saute au premier numéro de ligne suivant 
GOTO. Si N vaut 2, le programme saute au second 
numéro, et ainsi de suite en fonction de la valeur de N. 


Cette instruction permet de lire le contenu d'une case 
mémoire particulière. Elle est souvent associée à POKE. 


Cette instruction place dans une case mémoire particulière 
une donnée numérique entière comprise entre O et 255. 


Cette instruction demande à l'ordinateur de générer un 
nombre aléatoire. 

Par exemple RND(A) produire un nombre compris entre À 
et 1 avec 5 à 7 chiffres après la virgule. Pour obtenir un 
nombre entier dans une plus large gamme, il faut le 
multiplier et utiliser l'instruction INT. 


Cette instruction complète les instructions FOR... NEXT. 
Elle indique la valeur devant être ajoutée au compteur de 
boucles à chaque passage. Par exemple : 

FOR X = 0 TO 20 STEP 5:PRINT X:NEXT X 

produira l'affichage des nombres 0,5,10,15,20 


Un tableau est un ensemble de données identifiées par le 
même nom de variable suivi d'un indice placé entre 
parenthèses. Vous pouvez comparer un tableau à une série 
de boîtes placées dans la mémoire de l'ordinateur et 
recevant chacune une donnée numérique. 


Variable Lorsque vous donnez une information à l'ordinateur, vous 
devez lui donner un nom sous lequel il la mémorisera. Ce 
nom est appelé variable car la quantité qu'il désigne peut 
changer durant l'exécution du programme. Lorsque vous 
désirez atteindre l'information elle-même, vous utilisez son 
nom de variable. 

Par exemple : À = 6 place la valeur 6 dans la variable A. 
Il existe deux types de variables : une variable numérique 
pour mémoriser des nombres ; une variable chaîne de 
caractères pour mémoriser des caractères placés entre 
guillemets. Dans ce dernier cas, le nom de la variable se 
termine par le symbole $. 


Table de conversion 


. THOMSON AMSTRAD 


CLEAR 1000,,5 CLEAR 


SYMBOL AFTER 250 


SCREEN 6,0,0 PAPER O 
BORDER 0 
INK 1,20 


PEN 1 
DEFGRS(n)= SYMBOL n, 


PLAY"DO" SOUND 1,478,40,12 


PRINT GRS(n) PRINT CHRS(n+250) 


Index 
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Couleur 22, 24, 25 I Mise au point 10 
Curseur 7 INKEVS 26,29 N 


INPUT 13, 19, 30 Nombre aléatoire 8, 9, 12, 


D 
Déverminage 10 


13;.30 
Numéro de ligne 6 
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Organigramme 8, 9 SAVE 10 Variable 14, 19, 20, 31 
Symboles arithmétiques 6 Variable chaîne de 
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Tableau 18, 20, 30 
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